﻿Namespace ResourceManager

    Public Class FontObject
        Inherits ResourceObjectBase

        Public Property Size() As Integer
        Public Property Color() As Color
        Public Property Font() As SpriteFont

        Public Sub New()
            MyBase.New()
            Me.Size = 0
            Me.Color = Color.Black
        End Sub

        Public Sub New(ByVal name As String, ByVal fontFileName As String, ByVal spf As SpriteFont, Optional ByVal fontSize As Integer = 22)
            MyBase.New(name, fontFileName)
            Me.Font = spf
            Me.Size = fontSize
            Me.Color = Color.Black
        End Sub

        Public Sub New(ByVal name As String, ByVal fontFileName As String, ByVal spf As SpriteFont, ByVal color As Color, Optional ByVal fontSize As Integer = 22)
            MyBase.New(name, fontFileName)
            Me.Font = spf
            Me.Size = fontSize
            Me.Color = color
        End Sub

    End Class

End Namespace